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NON-WELLFOUNDED TREES IN HOMOTOPY TYPE THEORY 
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Abstract. We prove a conjecture about the constructibility of coinductive 
types —in the principled form of indexed M-types —in Homotopy Type The¬ 
ory. The conjecture says that in the presence of inductive types, coinductive 
types are derivable. Indeed, in this work, we construct coinductive types in a 
subsystem of Homotopy Type Theory; this subsystem is given by Intensional 
Martin-Lof type theory with natural numbers and Voevodsky’s Univalence 
Axiom. Our results are mechanized in the computer proof assistant Agda. 


1. Introduction 

Coinductive data types are used in functional programming to represent infinite 
data structures. Examples include the ubiquitous data type of streams over a 
given base type, but also more sophisticated types; as an example we present an 
alternative definition of equivalence of types (Example [2^ . 

From a categorical perspective, coinductive types are characterized by a universal 
property, which specifies the object with that property uniquely in a suitable sense. 
More precisely, a coinductive type is specified as the terminal eoalgebra of a suitable 
endofunctor. In this category-theoretic viewpoint, coinductive types are dual to 
inductive types, which are defined as initial algebras. 

Inductive, resp. coinductive, types are usually considered in the principled form 
of the family of W-types, resp. M-types, parametrized by a type A and a dependent 
type family B over A, that is, a family of types {B{a))a:A- Intuitively, the elements 
of the coinductive type M(>1, B) are trees with nodes labeled by elements of A such 
that a node labeled hy a : A has R(a)-many subtrees, given by a map B{a) -A 
M(A,i3); see Figure [^for an example. The inductive type \N{A,B) contains only 
trees where any path within that tree eventually leads to a leaf, that is, to a node 
a : A such that B{a) is empty. 

In this work, we study coinductive types in Homotopy Type Theory (HoTT). 
HoTT is an extension of intensional Martin-Lof type theory m; we give a brief 
overview in Section [H 

The universal properties defining inductive and coinductive types, respectively, 
can be expressed internally to intensional Martin-Lof type theory (and thus inter¬ 
nally to HoTT). Awodey, Gambino, and Sojakova |5] use this facility when proving, 
within a subtheory U of HoTT, a logical equivalence between 

(1) the existence of W-types (a.k.a. the existence of a universal object) and 

(2) the addition of a set of type-theoretic rules to their “base theory” H. 


The work of Benedikt Ahrens was partially supported by the CIMI (Centre International 
de Mathematiques et d’Informatique) Excellence program ANR-11-LABX-0040-CIMI within the 
program ANR-ll-IDEX-0002-02 during a postdoctoral fellowship. 
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a,b,C'. A 
B{a) = 0 
B{b) = 2 
B(c) = 3 



Figure 1. Example of a tree (adapted from |13| 1 


We might call the W-types defined internally “internal W-types”, and those specified 
via type-theoretic rules “external” ones. In that sense, Awodey, Gambino, and So- 
jakova [5] prove a logical equivalence between the existence of internal and external 
W-types. 

The universal property defining (internal) coinductive types in HoTT is dual to 
the one defining (internal) inductive types. One might hence assume that their 
existence is equivalent to a set of type-theoretic rules dual (in a suitable sense) 
to those given for external W-types as in item above. However, the rules for 
external W-types cannot be dualized in a naive way, due to some asymmetry of 
HoTT related to dependent types as maps into a “type of types” (a universe), see 
the discussion in |S]. 

In this work, we show instead that coinductive types in the form of M-types can 
be derived from certain inductive types. (More precisely, only one specific W-type 
is needed: the type of natural numbers, which is readily specified as a W-type [S].) 

The result presented in this work is not surprising; indeed, the constructibility of 
coinductive types from inductive types has been shown in extensional type theory 
(see Section o and was conjectured to work in HoTT during a discussion on the 
HoTT mailing list [9]. In this work, we give a formal proof of the constructibility 
of a class of coinductive types from inductive types, with a proof of correctness of 
the construction. 

The theorem we prove here is actually more general than described above: in¬ 
stead of plain M-types as described above, we construct indexed M-types, which 
can be considered as a form of “(simply-)typed” trees, typed over a type of indices 
I. Plain M-types then correspond to the mono-typed indexed M-types, that is, to 
those for which 1 = 1. Since all the ideas are already contained in the case of 
plain M-types, we describe the construction of those extensively, and only briefly 
state the definitions and the main result for the indexed case. The formalisation in 
Agda, however, is done for the more general, indexed, case. An example illustrates 
the need for these more general indexed M-types. 

1.1. Related work. Inductive types in the form of W-types in HoTT have been 
studied by Awodey, Gambino, and Sojakova [^. The content of that work is de¬ 
scribed above. 

Van den Berg and De Marchi m study the existence of plain M-types in models 
of extensional type theory, that is, of type theory with a reflection rule identifying 
propositional and judgmental equality. They prove the derivability of M-types from 
W-types in such models, see Gorollary 2.5 of the arXiv version of that article. A 
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construction in extensional type theory of M-types from W-types is given by Abbott, 
Altenkirch, and Ghani [T]. 

Martin-L6f type theory without identity reflection, but with the principle of 
Uniqueness of Identity Proofs (Axiom K) can be identified with the 0-truncated 
fragment of HoTT (modulo the assumption of univalence and HITs). For such 
a type theory, a construction of (indexed) M-types from W-types is described by 
Altenkirch et al. [3], internalizing a standard result in 1-category theory |3]. The 
present work thus generalizes the construction described in [3] by extending it from 
the 0-truncated fragment to the whole of HoTT. More specifically, the main work 
in this generalization is to develop higher-categorical variants of the 1-categorical 
constructions used in |3] that are compatible with the higher-categorical structure 
(the coherence data) of types. 

1.2. Synopsis. The paper is organized as follows: In Sectionwe present the type 
theory we are working in—a “subsystem” of HoTT as presented in [T2]. In Section]^ 
we define signatures for plain M-types and, via a universal property, the M-type 
associated to a given signature. In Section we construct the M-type of a given 
signature. In Section]^ we state the main result for the case of indexed M-types. 
Finally, in Section we give an overview of the formalisation of our result in the 
proof assistant Agda. 

Acknowledgments. We are grateful to many people for helpful discussions about 
coinductive types, online as well as offline: Thorsten Altenkirch, Steve Awodey, 
Martin Escardo, Nicolai Kraus, Peter LeFanu Lumsdaine, Ralph Matthes, Paige 
North, Mike Shulman, and Vladimir Voevodsky. We thank Nicolai Kraus, Peter 
LeFanu Lumsdaine and Paige North for suggesting improvements and clarifications 
for this paper. 


2. The type theory under consideration 

The present work takes place within a type theory that is a subsystem of the 
type theory presented in the HoTT book m- The latter is often referred to as 
Homotopy Type Theory (HoTT); it is an extension of intensional Martin-L6f type 
theory (IMLTT) HU]. The extension is given by two data: firstly, the Univalenee 
Axiom, introduced by Vladimir Voevodsky and proven consistent with IMLTT in 
the simplicial set model |H]. The second extension is given by Higher Induetive 
Types (HITs), the precise theory of which is still subject to active research. Prelim¬ 
inary results on HITs have been worked out by Sojakova m and Lumsdaine and 
Shulman—see m Chap. 6] for an introduction. In the present work, we use the 
Univalence Axiom, but do not make use of HITs. 

The syntax of HoTT is extensively described in a book m-, we only give a brief 
summary of the type constructors used in the present work, thus fixing notation. 
The fundamental objects are types, which have elements (“inhabitants”), written 
a : A. Types can be dependent on terms, which we write as a: : A h B{x) : U. 
In the preceding judgment, we use a special type U, the “universe” or “type of 
types”. In this work we assume any type being an element of U in the sense of 
“typical ambiguity” |12l Chap. 1.3], without worrying about universe levels. The 
formalisation in Agda ensures that everything works fine in that respect: as we 
will see later, the universe U is closed under the construction of M-types. 
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We use the following type constructors: dependent products Y[{x-a) with 

non-dependent variant written A ^ B, dependent sums "Yh^x-A) with non¬ 

dependent variant written A x B, the identity type x =a y and the coproduct 
type A + B. In particular, we assume the empty type 0 and the singleton type 1. 
Furthermore, we assume the existence of a type of natural numbers, given as an 
inductive type according to the rules given in m Chap. 1.9]. Finally, we assume 
the univalence axiom for the universe U as presented in HH Chap. 2.10]. 

Concerning terms, function application is denoted by parentheses as in /(x) 
or, occasionally, simply by juxtaposition. We write dependent pairs as (a, b) for 
b : B{a). Projections are indicated by a subscript, that is, for x : 'Y{a-A) -®(®) we 
have Xq : A and xi : B{xo). Indices are also used occasionally to specify earlier 
arguments of a function of several arguments; e.g., we write Bi{a) instead of B(i){a). 

We conclude this brief introduction by recalling two important internally defin¬ 
able properties of types: we call the type X contractible, if X is inhabited by a 
unique element, that is, if the following type is inhabited: 

isContr(X) := ^ x' = x . 

(x-.X) (x'-.X) 

We call the type Y a proposition if for all y, y' : Y, we have y = y'. Note that a 
type X is contractible iff X is a proposition and there is an element x : X (see also 
|121 Lemma 3.11.3]). 

3. Definition of M-types via universal property 

Coinductive types represent potentially infinite data structures, such as streams 
or infinite lists. As such, they have to be contrasted to inductive datatypes, which 
represent structures that are necessarily finite, such as unary natural numbers or 
finite lists. 

3.1. Signatures, a.k.a. containers. In order to analyze inductive and coinduc¬ 
tive types systematically, one usually fixes a notion of “signature”: a signature 
specifies, in an abstract way, the rules according to which the instances of a data 
structure are built. In the following, we consider signatures to be given by “con¬ 
tainers” [3]: 

Definition 1. A container (or signature) is a pair {A, B) of a type A and a 
dependent type x ■. A\~ B{x) -.U over A. 

The container {A, B) then determines a type of “trees” built as follows: such a 
tree consists of a root node, labeled by an element a : A, and a family of trees— 
“subtrees” of the original tree—indexed by the type B{a). A tree is well-founded if 
it does not have an infinite chain of subtrees. 

To the container {A, B) one associates two types of trees built according to those 
rules: the type \N{A,B) of well-founded trees, and the type M(A,i3) of all trees, 
i.e., not necessarily well-founded. 

The description of the inhabitants of \N{A,B) and M(A, B) in terms of trees 
gives a suitable intuition; formally, those types are defined in terms of a universal 
property. Indeed, M(A, B) will be defined as (the carrier of) a terminal object in a 
suitable sense. 
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3.2. Coalgebras for a signature. Any container {A,B) specifies an endomor¬ 
phism on types as follows: 

Definition 2. Given a container define the polynomial functor P :U ^ 

U associated to {A,B) as 

a: A 

Given a map f : X —>■ Y, define Pf : PX —>■ PY as the map 

Pf{a,g) := {a, f o g) . 

Note that Definition does not really define a functor, and, more fundamentally, 
the universe U is not a (pre-)category in the sense of [2|. Instead, the appropriate 
notion for P would be an oo-(endo)functor on the (oo, l)-category U [7]. However, 
we do not attempt to make any of these notions precise, and do not make use of any 
“functorial” properties of the defined maps. Our use of the word “functor” merely 
indicates an analogy to the 1 -categorical case. 

To any signature S = (A, B) we associate a type of coalgebras Coaigg, and a 
family of types of morphisms between them: 

Definition 3. Given a signature S = {A,B) as in Definition]^ an S'-coalgebra 
is defined to be a pair (C, 7 ) consisting of a type C : U and a map 7 : C —>■ PsC. 
A map of coalgebras from ( 0 , 7 ) to {D,S) is defined to be a pair {f,p) of a map 
f : C —>■ D and a path p : 6 o f = Pgf o 7 . Put differently, we set 

Coalgg := E PC 

C-.U 

and 

Coalg 5 ((C', 7 ),(D, 5 )) := ^ 5 o / = P/o 7 . 

f-.C^D 

There is an obvious composition of coalgebra morphisms, and the identity map 
C —>■ C is the carrier of a coalgebra endomorphism on (C, 7 ). We also write (C, 7 ) ^ 
{D,S) for the type of coalgebra morphisms from (C,j) to {D,S). 

3.3. What is an M-type? In this section we define (internal) M-types in HoTT 
via a universal property. 

Definition 4. Given a container (A, B), the (internal) M-type ^ associated 

to {A,B) is defined to be the pair (M, out : M —>■ Pa,bM) with the following 
universal property: for any coalgebra (( 7 , 7 ) : Coalg^^^^^ of {A,B), the type of 
coalgebra morphisms (C, 7 ) =7 (M, out) from (C, 7 ) to (M, out) is contractible. 

The use of the definite article in Definition]^ is justified by the following lemma: 

Lemma 5. The type 

Final, := 5 : ^ isContr((C', 7 ) ^ (A,p)) 

((Y:,p):Coalgs) ((C, 7 ):Coalgs) 


is a proposition. 


6 


BENEDIKT AHRENS. PAOLO CAPRIOTTI, AND REGIS SPADOTTI 


Proof. The proof that any two final coalgebras (L,out) and (L',out') have equiv¬ 
alent carriers is standard. The Univalence Axiom then implies that the carriers 
are (propositionally) equal, L = L'. It then remains to show that the coalgebra 
structure out, when transported along this identity, is equal to out'. We refer to 
the formalized proof for details. □ 

That is, any inhabitant of Finals is necessarily unique up to propositional equal¬ 
ity. We refer to this inhabitant as the “final coalgebra”. In Section we construct 
the final coalgebra. 

In the introduction, we use the adjectives “internal” and “external” to distinguish 
between types specified via universal properties and type-theoretic rules, respec¬ 
tively. Since we do not consider rules for M-types (that is, external M-types) in this 
work, we drop the adjective “internal” in what follows. 

In the following example, we anticipate the result of the next section, namely 
the existence of a final coalgebra for any signature (A, B) : 

Example 6. The coinductive type Stream(Ao) of streams over a base type Aq is 
given by M(A,i?) with A = Aq and B{a) := 1 for any a : Aq. The corresponding 
polynomial functor P satisfies P{X) = Aq x X. 

Using finality of M(A, i?) we can define maps into streams and prove that they 
have the expected computational behaviour. For example, the zip function 

zip : Stream(A) x Stream(i3) —> Stream(A x B) 

can be obtained from the universal property applied to the coalgebra 

9 : Stream(A) x Stream(i3) {A x B) x (Stream(A) x Stream(i3)) 
9{xs,ys) := ((head(a;s), head(?/s)), (tail(a;s), tail(ys)) 

where head : Stream(X) —>■ X and tail ; Stream(A) —Stream(A) are the two com¬ 
ponents of the final coalgebra out. The computational behaviour of zip is expressed 
by the fact that zip is a coalgebra morphism 

zip(a::s,ys) = cons((head(xs), head( 2 /s)), (zip(tail(xs), tail(j/s)))), 
where cons = out“^. 


4. Derivability of M-types 

In Section|^we defined the type Finals of final coalgebras of a signature S, and 
showed that this type is a proposition (Lemma [^. In this section, we construct an 
element of Finals, which, combined with Lemma proves the following theorem 
per the remark at the end of Section 

Theorem 7. The type 

Finals = E n isContr((C',7) ^ iX,p)) 

iiX,p)) ((C,7)) 

is contractible. 

The construction of the final coalgebra is done in several steps, inspired by a 
construction of M-types from W-types in a type theory satisfying Axiom K by 
Altenkirch et al. [3]. Its carrier is defined as the limit of a chain: 
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Definition 8. A chain is a pair {X, tt) of a family of types A : N — ?► and a 
family of functions 7r„ : X^+i —>■ X„. Here and below we write A„ := X(n) for the 
nth component of the family X . 

The (homotopy) limit of such a chain is given by the type of “compatible tuples”: 
Definition 9. The limit of the chain (A, tt) is given by the type 
L := ^ ^ ■ 

(2::n(„:N) (n:N) 

The limit is equipped with projections pn : L ^ A„, and j3n : 7r„ o pn+i = Pn- 
Sometimes, we simply write 

L = lim A, 

when the maps tt are clear. 

Note that this limit (we drop the adjective “homotopy”) is an instance of the 
general construction of homotopy limits by Avigad, Kapulkin, and Lumsdaine |4]. 



Figure 2. Universal property of L 


Lemma 10. The type L satisfies the following universal property: for all types A, 
we have an equivalence of types between maps into L and “cones” over X: 

L ~ ^ ]^7r„o fn+i = fn =■■ Cone(A) . 

(/:n(„:N) (n-.N) 

The equivalence, from left to right, maps a function / : A —>■ L to its projections 
Pn° f, as shown in Figure 

The next lemma is about tuples in cochains, that is, tuples in chains with inverted 
arrows. Those tuples are determined by their first element: 

Lemma 11. Let X : N ^ U be a family of types, and I : Jl(n-N) ^n+i o, 

family of functions. Let 

'A := ^ ^ OTji+l — Ijii^n) 

(^■n(Ti:N) (n:N) 

Then the projection Z —>■ Aq is an equivalence. 

Proof. Let G be the functor defined by GY = 1 + Y. Fix an element z : Z. Then 
z and I together define a G-algebra structure on A, regarded as a fibration over N. 
Since N is the homotopy initial algebra of G, the type Sz of algebra sections of A 
is contractible. But Z is equivalent to 
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( 2^0 = 2) X ( Xn+1 

{z-.Xo) Xr.) Vn:N 


^n(^n) 


which is exactly J2(z-Xo) 


□ 


Lemma 12. Let {X,tt) be a chain, and let {X',tt') be the shifted chain, defined by 
Xf := Xn+i and := 7r„_|_i. Then the two chains have equivalent limits. 

Proof. Let L and L' be the limits of {X,tt) and {X',Tr'), respectively. We have 


L — ^ ^ ^n+lZ/n+l — Un 

y X! X! = ^o) X I TTn+iyn+l = Vn 

(xqiXo) (y:n(„.N) W+i) Vn:N 

y ^ {ttqXo = Xo) X I 7 r„+ia ;„+2 = x„+i j 

^:n(„;N) Vn:N / 

(4) 


^ ^ 'Hn^n+l — 

(“:n(„;N) ^") (":N) 




where (1) and (5) are by definition. Equivalence |(2)| is given by multiplying with 
the contractible type J2(xo-.Xo) '^oVo = Xq m Lem. 3.11.8] and subsequent swapping 
of components in a direct product. Equivalence |(3)| is given by joining the first two 
components, and similarly in m the last two components are joined. □ 


The next lemma says that polynomial functors (see Definition commute with 
limits of chains. Let {A, B) be a container with associated polynomial functor 
P = Pa.b- Let {X, tt) be a chain with limit {L,p). Define the chain {PX, Ptt) with 
PXn := P{Xn) and likewise for Ptt, and let be its limit. The family of maps 
Ppn ■ PL —>■ PXn determines a function a : PL —)■ L^. 


Lemma 13. The function a is an isomorphism. 
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Proof. By “equational” reasoning we have 


(^) 


E 


n 

{PTTn)Wn+l = W 

'n 



E)(a;A) B{a)^Xn 

) (n:N) 


(p 

E 


E 



— (^715'^n) 


(“■n(Ti;N) 

A) («:!!(, 

-i:N) 


(n:N) 


(^) 

E 


E 


E 

n OMn+l) 


('^■n(n:N) 

-4) (p:n(. 

i;N) 

^ar,) 

('^'n(n;N) B{an)^Xr. 

d (n:N) 

(^) 

E 

E 


n 

TTn 0 Un-\-l — Un 



(a.A) («:] 

^{n;N) 

l)— 

(n:N) 



(10 


fl) — y L 






( 11 ) 

~ PL 


where |(6)| and |(11 )]ar e by definition, |(7)| is by swapping 11 and E, |(8)| by expanding 
equality of pairs, (9) by applying Lemma |ll| and [(10)| by universal property of L. 
Verifying that the composition of these isomorphisms is a is straightforward. □ 


Proof of Theorem^ We now construct a terminal coalgebra for a container {A, B). 
Let P = Pa.b the polynomial functor associated to the container. By recursion on 
N we define the chain 


1 <- 


Ply- 


P^l ^ 


.p3 ^ 


which for brevity we call (IV, tt), that is, Wn := P”1 and 7r„ := P"!. 

Let {L,p) be the limit of (W,7r). If L' is the limit of the shifted chain, we have 
a sequence of equivalences 

(12) , (13) 

PL ~ L' ~ L 


where (12) is given by Lemma 13 and |(13)] by Lemma [T^ We denote this equiva¬ 
lence by in : PL —?> L, and its inverse by out : L PL. 

It is worth noting that the construction of L “does not raise the universe level”, 
i.e., if A and B are contained in some universe U, then L is contained inlA as well. 
In other words, we only need one universe to carry out our construction of the final 
coalgebra. 

We will now show that (L, out) is a final (A, i?)-coalgebra. For this, let (C, 7) be 
any coalgebra, i.e., 7 : C —)■ PC. The type of coalgebra morphisms {€,')) ^ (L,out) 
is given by 

U := ^ outo/ = P/o7 . 

f-.C^L 


We need to show that U is contractible. We compute as follows (see below the 
math display for intermediate definitions): 
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(14) 

U ~ ° / = Pf ° 7 

f-.C^L 

out o / = step(/) 

f-.C^L 

in o out o / = in o step(/) 

S-.C^L 


Y f = '^if) 

f-C^L 

c:Cone 

Y e(c) = e($(c)) 

c:Cone 

( 20 ) 

- ^ C=$(c) 

c:Cone 

P*{<i) = ^iiu)iq) 

{{u ,q)-.Cone) {p:u—^o{'^)) 

Y p*(9) = ^i(w)(9) 

(u:Coneo) {p:u—^Qu) q.Coneiu 
(23) \ ^ 

t:l 

~ 1 


where we use the following definitions: The function step^ : {C ^ Y) ^ {C ^ PY) 
is defined as stepy(/) := Pf o 7 and ih : (C —>■ L) —(C —>■ L) is defined as 
'h(/) := in o step^(/). The map $ : Cone —^ Cone is the counterpart of ih on the 
side of cones. We define ^{u,g) = {^ou,^iu{g)) : Cone —>■ Cone with 


(ihQn)Q :— X I —y tt : C —y 1 — fWi 

($0u)n+l := Step^^(u„) : C Wn+l = PWn 

and analogously for <I)i on paths. By e we denote the equivalence of Lemma [T0| from 
right to left, and Cone = X](u-Coneo) Conei(u) is short for Cone(C). The equivalence 
(16) follows from in being an equivalence, and |(17)'| follows from in and out being 
inverse to each other. We pass from maps into L to cones in |(18)[ using the 
equivalence of Lemma 10 while (19) uses the commutativity of the following square: 


Cone ——>■ (C — L) 


$ 




Cone 
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In 1(21)1 identity in a sigma type is reduced to identity of the components, and in 


(22) the components are rearranged. Finally, step (23) consists of two applications 


of Lemma E] 

Altogether, this shows that for any coalgebra the type of coalgebra mor- 

phisms (C, 7 ) => (L, out) is contractible. This concludes the construction of a final 
coalgebra associated to the signature {A,B), and thus, combined with Lemma 
the proof of Theorem □ 


From the construction of L we get the following corollary about the homotopy 
level of M-types: 

Lemma 14. The homotopy level of the (carrier of the) M-type associated to the 
signature {A, B) is bounded by that of the type of nodes A, that is, 

isofhlevel„(A) —)■ isofhlevel„(M(A, B)) . 

Example 15. We continue the example of streams of Example with A = Aq 
the type of nodes. In that case, the chain considered in the proof of Theorem is 
given by Wn = P"(I) = A", and the map 7r„ : —>■ A" chops of the (n + I)th 

element of any (n + l)-tuple. The limit L is hence given by A^ = (N —t A). The 
type of streams over A has the same homotopy level as the type A of nodes. 


We conclude this section with a proof of the principle of coinduction: 


Definition 16 (Bisimulation). Let (C, 7 ) be a coalgebra for some signature S with 
associated polynomial functor P and let 7?. : C —t C —t be a binary relation. 
Define 

^ E E 

(a:C) (b-.C) 

along with two projections 7 r(^(a, b,p) := a and 7 r^(a, b,p) := b. 

An S-bisimulation is a relation TZ together with a map a-ji : TZ —>■ P{TZ) such 
that both 7 r(^ and are P-coalgebra morphisms: 


C ^ 

7 


P{C) 


TT 


n 

1 


P(7r?) 


R 

O-Tl 


i 


P{R) 


TT 


n 

2 


^ C 

7 


- ^^P{C) 


We say that a bisimulation is an equivalence bisimulation when the underlying 
relation is an equivalence relation. 

Lemma 17. The identity relation ■ = ■ over an S-coalgebra C is an equivalence 
bisimulation. We write Ac for ■ = ■. 

Theorem 18 (Coinduction proof principle). Let (L,out) be the final coalgebra for 
S. For any bisimulation TZ over L, we have TZ C A^. That is, for any m,m' : L, 

TZ{m)(m') — >■ m = m'. 
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Proof. Since (L,out) is the final coalgebra, for any coalgebra (C, 7 ) there exists a 
unique coalgebra morphism unfoldc : C —>■ L. It follows that 7 r|^ = unfold:^ = tt^. 
Finally, given r : TZ{m){m'), we obtain m = m', r) = 7r^(m, m', r) = m'. □ 

5. Indexed M-types 

In this section, we briefly state the main definitions for indexed M-types. The 
difference to plain M-types is that the type of nodes of an indexed M-type is actually 
given by a family of types, indexed by a type of sorts I. 

Definition 19. An indexed container is given by a quadruple (/, A, B, r) such 
that I : U is a type, i : I \- A{i) : U is a family of types dependent on /, B is 
a family i : I,a : A{i) h Bi{a) : U and r specifies the “sort” of the subtrees, i.e., 
r ■■ ]!(*:/) n(a:AW)^*(a) ^ I- 

Definition 20. The polynomial functor P associated to an indexed container 
(/, A, B, r) is an endofunction on the type I ^U: 

{Pxm := E n ^Mb)) ■ 

(a:A(i)) (b-.Bi{a)) 

The functorial action on morphisms is, analogously to Definition given by post¬ 
composition. 

Coalgebras for indexed containers, and their morphisms, are defined completely 
analogously to Definition Again, we prove that terminal coalgebras for indexed 
containers exist uniquely: 

Theorem 21. Let (/, A, B, r) be an indexed container. Then the associated indexed 
M-type is uniquely specified and can be constructed in the type theory described in 
Section\^ 

An example of a coinductive type that needs indices to be expressed as an M- 
type is a coinductive formulation of equivalence of types, to our knowledge due to 
T. Altenkirch: 

Example 22. Let I :=U xU, and let A : / —>■ be defined by A{X, Y) := (X —>■ 
y) X (y — X). Define B as B{X,Y){f,g) ■.= X xY and r{X,Y){f,g){x,y) := 
{f{x) = y) X {x = g{y)). Then the associated M-type is a family M : I —i' U and 
M(A, B) is equivalent to A ~ _B. 

6. Formalization 

The proofs contained in this paper have been formalised in the proof assistant 
Agda in a self-contained development. The proof has been type-checked by version 
2.4.2.2 of Agda. The source code as well as HTML documentation can be found 
on https://github.com/HoTT/m-types/, The Agda source code is also part of 
this arXiv submission. 

The formalised proofs deal with the indexed case (Section directly, but apart 
from that, they correspond closely to the informal proofs presented here. In partic¬ 
ular, they make heavy use of the “equational reasoning” technique to prove equiv¬ 
alences between types. 

In fact, it is often the case that proving an equivalence between types A and B 
“directly”, i.e. by defining functions A ^ B and B ^ A, and then proving that they 
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compose to identities in both directions, is unfeasibly hard, due to the complexity 
of the terms involved. 

However, in most cases, we can construct an equivalence between A and B by 
composition of several simple equivalences. Those simple building blocks range 
from certain ad-hoc equivalences that make specific use of the features of the two 
types involved, to very general and widely applicable “rewriting rules”, like the fact 
that we can swap a S-type with a H-type (sometimes called the constructive axiom 
of choice HU). 

By assembling elementary equivalences, then, we automatically get both a func¬ 
tion A ^ B and a proof that it is an equivalence. However, sometimes care is 
needed to ensure that the resulting function has the desired computational proper¬ 
ties. 

An important consideration during the formalisation of the proof of Theorem 
was keeping the size of the terms reasonably short. For example, in one early 
attempt, the innocent-looking term in was being normalised into a term spanning 
more than 12000 lines. 

The explosion in term size was clearly causing performance issues during type¬ 
checking, which resulted in Agda running out of memory while checking apparently 
trivial proofs. 

We solved this problem by moving certain definitions (like that of in itself) into 
an abstract block, thereby preventing Agda from expanding it at all. Of course, 
this means that we lost all the computational properties of certain functions, so 
we had to abstract out their computational behaviour in the form of propositional 
equalities, and manually use them in the proof of Theorem This work-around is 
the source of most of the complications in the formal proof. 

7. Conclusion and future work 

We have shown how to construct a class of coinductive types from the basic type 
constructors and natural numbers in Homotopy Type Theory. Our construction 
follows a well-known pattern, that is known to work in type theory with identity 
reflection rule. 

We work in a univalent universe, but we make minimal use of univalence itself: 
Lemma is the only result that uses it directly, and elsewhere univalence only 
appears indirectly through the use of functional extensionality. We intend to make 
these dependencies more explicit in future developments of the formalisation. 

Finally, the coinductive types we construct do not satisfy the expected compu¬ 
tation rules judgmentally, but only propositionally. This fact would justify adding 
coinduction as a primitive rather than a derived notion—provided that judgmen¬ 
tal computation rules are validated by the intended semantics. Those semantic 
questions are left for future work. 
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